home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / PrefMon.AMOS / PrefMon.amosSourceCode
AMOS Source Code  |  1997-04-18  |  257b  |  13 lines
  1. Screen Open 0,640,256,2,$8000
  2. Curs Off 
  3. Timer=1 : X=0 : Y=0
  4.  
  5. Do 
  6.   A=Leek(Leek(4)+284)
  7.   D=((A-AA)*5)/Timer : AA=A
  8.   If X=0 Then Plot 0,Y,1 Else Draw To X,Min(D+Y,256)
  9.   Inc X
  10.   If X>639 Then X=0 : Add Y,40
  11.   Timer=0
  12.   For A=0 To 3 : Multi Wait : Next 
  13. Loop